home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / UTILITY1 / MSWLGO35.ZIP / EXAMPLES / PP < prev    next >
Text File  |  1993-04-12  |  2KB  |  78 lines
  1. ;
  2. ; Function:
  3. ;
  4. ; Logo List Pretty Printer
  5. ;
  6. ; To run:
  7. ;
  8. ; Load "pp
  9. ; Call PP list
  10. ;
  11. ; Example (pretty prints the :records structure at the bottom):
  12. ;
  13. ; PP :records
  14. ;
  15. TO FITS :THING :LEFT :RIGHT
  16. OP (:LEFT+COUNT :THING) < (:RIGHT-:LEVEL)
  17. END
  18.  
  19. TO FITS.FIRST :THING :LEFT :RIGHT
  20. IF WORDP :THING [OP FITS :THING :LEFT :RIGHT]
  21. IF EMPTYP :THING [OP (:LEFT+3) < :RIGHT]
  22. OP FITS.FIRST FIRST :THING :LEFT+1 :WIDTH-10
  23. END
  24.  
  25. TO MARGIN
  26. IF :ITEM = 1 [STOP]
  27. PR []
  28. MAKE "LEFT :LEVELPOS
  29. REPEAT :LEFT [TYPE "| |]
  30. MAKE "LINELEVEL :LEVEL
  31. END
  32.  
  33. TO PP :THING
  34. LOCAL [LINELEVEL WIDTH]
  35. MAKE "LINELEVEL 0
  36. MAKE "WIDTH 80
  37. IGNORE PP1 :THING 0 0 0 1 1
  38. PR []
  39. END
  40.  
  41. TO PP1 :THING :LEFT :LEVEL :LEVELPOS :ITEM :COUNTER
  42. IF NOT FITS.FIRST :THING :LEFT :WIDTH [MARGIN]
  43. IF WORDP :THING [OP PPWORD :THING]
  44. TYPE "\[
  45. MAKE "LEFT PP2 :THING :LEFT+1 :LEVEL+1 :LEVELPOS 1 COUNT :THING
  46. TYPE "\]
  47. IF :ITEM < :COUNTER [TYPE "| | OP :LEFT+2]
  48. OP :LEFT+1
  49. END
  50.  
  51. TO PP2 :THING :LEFT :LEVEL :LEVELPOS :ITEM :COUNTER
  52. IF EMPTYP :THING [OP :LEFT]
  53. IF :ITEM = 1 [MAKE "LEVELPOS :LEFT]
  54. IF :LEVEL < :LINELEVEL [MARGIN]
  55. MAKE "LEFT PP1 FIRST :THING :LEFT :LEVEL :LEVELPOS :ITEM :COUNTER
  56. OP PP2 BF :THING :LEFT :LEVEL :LEVELPOS :ITEM+1 :COUNTER
  57. END
  58.  
  59. TO PPWORD :THING
  60. TYPE :THING
  61. IF :ITEM < :COUNTER [TYPE "| | OP :LEFT+1+COUNT :THING]
  62. OP :LEFT+COUNT :THING
  63. END
  64.  
  65. MAKE "RECORDS [[[MEET THE BEATLES] [BEATLES] [[I WANT TO HOLD YOUR HAND] ~
  66.    [I SAW HER STANDING THERE] [THIS BOY] [IT WON'T BE LONG] ~
  67.    [ALL I'VE GOT TO DO] [ALL MY LOVING] [DON'T BOTHER ME] [LITTLE CHILD] ~
  68.    [TILL THERE WAS YOU] [HOLD ME TIGHT] [I WANNA BE YOUR MAN] ~
  69.    [NOT A SECOND TIME]]] [[SECOND ALBUM] [BEATLES] ~
  70.    [[ROLL OVER, BEETHOVEN] [THANK YOU GIRL] ~
  71.    [YOU REALLY GOT A HOLD ON ME] [DEVIL IN HER HEART] [MONEY] ~
  72.    [YOU CAN'T DO THAT] [LONG TALL SALLY] [I CALL YOUR NAME] ~
  73.    [PLEASE MR. POSTMAN] [I'LL GET YOU] [SHE LOVES YOU]]] ~
  74.    [[SOMETHING NEW] [BEATLES] [[I'LL CRY INSTEAD] [THINGS WE SAID TODAY] ~
  75.    [ANY TIME AT ALL] [WHEN I GET HOME] [SLOW DOWN] [MATCHBOX] ~
  76.    [TELL ME WHY] [AND I LOVE HER] [I'M HAPPY JUST TO DANCE WITH YOU] ~
  77.    [IF I FELL] [KOMM, GIB MIR DEINE HAND]]]]
  78.